DevSubType 
DevSubType 

Password : 

FmtDelay: 
FintDelay: 

RW }jCy I inder 

RUlJCyrmder 

RWI-Cylinder- 

RWI_Ua!ue: 

BO_UctTcib: 
Start-Uector: 

LI Use tor: 

LH_Uector: 

RdLJJector: 

CS_Uector-: 

LdPw-Uector : 

Free_Uector: 

ExtStk_Uector: 

Zr-Rd_Uector-: 

CIrStat-Uector; 



DO 

LSTON 
Page 
FIN 

ORG 

DO 
Equ 
ELSE 
.Equ 

Fm 

BLOCK 

DB 

DB 

.DO 
.DB 
ELSE 
DB 
FIH 

DO 

Equ 
.FIN 

DO 
.Equ 

FIN 
.DO 
.Equ 
.FIN 
.DB 



Jp 
Jp 
# 

Jp 

Ld 

Ld 

Call 

Ret 

Ld 

Ld 

Call 

Ret 

Ld 
Ld 
Cal I 
Ret 

Ld 

Ld 

Cal I 

Ret 

Ld 
Ld 



Internal 



$1000 ;move this code Into the eprom 

SystemCode 

$00 ; system device 

$01 ;diagnostic device 



0,2 ; reserve two bytes for the checkbyte 
jbank 
$F0, $78, $3C, $1E 

W_10NB 

$1F ; busy wait for a while 

$1F 



w_ioriB 

257 ; cylinder at ujhich to turn on RWI and PC 

M_20MB 

257 ; cylinder at ««hich to turn on RUI and PC 

W_40MB 

514 ;cyl inder at which to turn on RWI and PC 

-HIBVTE. RWlJCyl inder, .LOMB'/TE. RWlJCylinder 



StartJCoififfiand 
Load JLog i aa 1 
LoadJHeader 
Rd_Leave 
ClrNormStat 

!r2,«. HIBVTE. Load_Passl4ord 
!r3,«.L0WBVTE. Load_Passl4ord 
BankJCa 1 1 



!r2,«. HIBVTE. Strt_Fr-eeProcess 
! r3, « . LOWBVTE . Str t_FreeProcess 
BankJCa 1 1 



!r2,». HIBVTE. lnit_ExtStack 
! r3, « . LOUBVTE . I n i t_£xtStack 
BankJCa 1 1 



!r2,». HIBVTE. Zem_RdBuf 
I r3,*. LOWBVTE. Zero_BdBuf 
BankJCa 1 1 



I r2 . « . H I BVTE .CI earSta tus 
I r3,«. LOWBVTE. ClearStatus 



SifTst_Uector: 



SfrTbl-Uector: 



Call 
Ret 

Ld 
Ld 
Call 
Ret 

Ld 

Ld 

Cciii 

Ret 



BankJCa 1 1 



!r2,«.H!BVTE. Self Test 
lr3,«.L0UBVTE. Self Test 
BankJCa 1 1 



!r2.«.HIBVTE. Load^prTbl 
!r3,«.L0MBVTE. Load_SprTbl 
BankJCa! I 



LC_Uector: 



Ld 

Ld 

Call 

Ret 



!r2,«.HIBVTE. LoadJCache 
!r-3,».L0WBVTE. LoadJCache 
BankJCa i i 



Scan-Uector: 



IScan_Uector: 



>can_SprChk : 



fScan_Ret: 

WrBlk_Uector: 
Uctr-BO_Bet: 

RdBlk_Uector: 



SC_Uector: 



Seek_Uector: 



ExtPush-Uector : 



ExtPop-Uector- 



Ld 
Ld 

Call 

Jp 



Ld 

Or 

Jr 

Tm 

Jr 
Ld 
Ld 

Call 
Ld 
Ld 

Call 

Ret 

Call 
Jp 

Call 
Jr 

Call 
Jr 

Ld 
Ld 

Call 

Jp 

Ld 

Ld 

Call 

Ret 

Ld 

Ld 

Call 

Ret 



!r2,«.HIBVTE. D^can 
!r3,».L0WBYTE. DJScan 
BankJCa 1 1 
Rd_Leave 



lrO,*DeySubType ; check for SystemCode 

IrOJrO ;IF SystemCode THEN DevSubType = 

Mz, IScan_Ret 

ExcptJ5tat,«P«jrRst ;only do scan after power reset 

ZJScan-SprChk 

!r2.».HIBVTE. Scan 

lr3,#.L0WBVTE. Scan 

BankJCa 1 1 

!r2,«.HIBVTE. Chk_^prCnt 

!r3,«.L0WBVTE. ChkJSprCnt 

BankJCa! I 



WriteBlock 
Bank_Ret 

ReadBlock 
UctrBO_Ret 

SrchJCache 
UctrBO_Bet 

lr2,«.HlBVTE. Seek 
!r3,«.L0UBVTE. Seek 
BankJCa 11 
Bank_Ret 

!r2.«.HIBVTE. Ext-Push 
f r3, » . LGUBVTE . Ext-Push 
BankJCa! I 



!r2,«.HIBVTE. Ext_Pop 
!r3,«.L0WBVTE. ExtJ^op 
BankJCa!! 



Dev i ceParams : 



w_toriB 



.RSCll 'Hldget-IO 

.DB $00, $01, $0 + DevSubType 

.DB HiRevNumber, LoRevNumber 

.OB $00, $4C, $00 

.OIJ 532 ; number of bytes per block 

.DW 514 ; number of cylinders is 514 

-DB $02 ; number ~of heads is 2 

-DB NbrSctrs 

•DB $00, $00, 75 ; number of spare possible 

.LSTOFF 

.FIH 

.DO Interna! 

.LSTON 

.FIM 

-DO W_20riB 

.RSCll 'Uidget-20 

.DB $00, $01, $10 + DevSubType 

.OB HIRevHumber. LoRevNumber 

.DB $00, $98, $00 

.DM 532 ; number of bytes per block 

.DU 514 ; number of cylinders is 514 

.DB $02 ; number of heads is 2 

-DB NbrSctrs 

.DB $00, $00, 76 ; number of spare possible 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.FIN 

.DO M_40MB 

.ASCII •Widget-40 

.DB $00, $01, $20 + DevSubType 

.DB HiRevNumber, LoRevNumber 

.DB $01, $30, $00 

.DM 532 ; number of bytes per block 

-DM 1028 ; number of cylinders is 1028 

.DB $02 ; number of heads is 2 

.DB NbrSctrs 

.DB $00, $00, 75 ; number of spare possible 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.FIN 



Dev_Parm_Len .Equ .PC. - Oev i ceParams 
.LSTOFF 



